home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SOLAR / Vector Processors / Modulate / self-modulate next >
Lisp/Scheme  |  1998-10-23  |  583b  |  18 lines
  1. self-modulate function-list depth amplitude
  2.  
  3. Modulates the frequency of the functions in function-list with the return value of itself at given depth of recursion using amplitude to control the amount of self modulation. A vector is returned. x parameter is used to connect the function to itself.
  4.  
  5. (setq func1 
  6.     '(gen-sin 10 1 100 0
  7.          (gen-sin 30 0.1 100 90 x)))
  8.  
  9. (setq func2 '(gen-sin 10 1 100 0 x))
  10.  
  11. (self-modulate func1 2 0.2)
  12. (self-modulate func2 3 0.2)
  13.  
  14. Or you may call it also:
  15.  
  16. (self-modulate '(gen-sin 10 1 100 0
  17.                  (gen-sin 30 0.1 100 90 x)) 2 0.2)
  18.